home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / demos / retinarave / include / movestars.i < prev    next >
Text File  |  1980-01-03  |  282b  |  28 lines
  1. stars:
  2.     tst vbl
  3.     bne nostars
  4.  
  5.     move.w #numstars,d0
  6.     lea sprite1,a0
  7.  
  8. nextspri
  9.  
  10.     subq.b #1,1(a0)
  11.     addq.l #8,a0
  12.     dbr d0,nextspri
  13.  
  14. nostars
  15.  
  16.     move.w #numstars,d0
  17.     lea sprite2,a1
  18.     lea sprite3,a2
  19.  
  20. nextspr
  21.  
  22.     subq.b #1,1(a1)
  23.     subq.b #2,1(a2)
  24.     addq.l #8,a1
  25.     addq.l #8,a2
  26.     dbr d0,nextspr
  27.     rts
  28.